home *** CD-ROM | disk | FTP | other *** search
/ Wild Blue Yonder 1: 50 Years of Gs & Jets / Wild Blue Yonder - Episode 1 - 50 Years of Gs and Jets (Digital Ranch) (Spectrum Holobyte)(1-107-40-101)(1994).iso / control / panel.dir / 00734_Script_734 < prev    next >
Text File  |  1994-08-29  |  342b  |  19 lines
  1. on checkEras
  2.   
  3.   global eraZone, eraWidth
  4.   
  5.   set H        = the mouseH
  6.   set leftEdge = the left of sprite eraZone
  7.   
  8.   repeat with i = 1 to 4
  9.     
  10.     if H > (leftEdge + ((i-1) * eraWidth)) and ¼
  11.        H < (leftEdge + (i * eraWidth)) then
  12.       executeEra( i )
  13.       exit
  14.     end if
  15.     
  16.   end repeat
  17.   
  18. end checkEras
  19.